home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib04.dsk / CREATE EXEC LINEFINDER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  815b  |  16 lines
  1. 1  REM  *********************************
  2. 2  REM  **  CREATE EXEC LINEFINDER     **
  3. 3  REM  **    BY SANDY MOSSBERG        **
  4. 4  REM  **  COPYRIGHT (C) 1981  BY     **
  5. 5  REM  **    MICRO-SPARC, INC.        **
  6. 6  REM  **   LINCOLN, MA. 01773        **
  7. 7  REM  *********************************
  8. 10  REM  CREATE EXEC FILE   LINEFINDER
  9. 20 D$ =  CHR$(13) + CHR$(4):F$ = "LINEFINDER"
  10. 30  PRINT D$"OPEN"F$;D$"WRITE"F$
  11. 40  PRINT "POKE 1912,PEEK(103):POKE 1913,PEEK(104):POKE 1914,PEEK(111):POKE 1915,PEEK(112)"
  12. 50  PRINT "POKE 1916,PEEK(107):POKE 1917,PEEK(108):POKE 1918,PEEK(105):POKE 1919,PEEK(106)"
  13. 60  PRINT "POKE 1146,PEEK(175):POKE 1147,PEEK(176):POKE 1148,PEEK(109):POKE 1149,PEEK(110)"
  14. 70  PRINT "POKE 103,PEEK(175):POKE 104,PEEK(176)+1:POKE (PEEK(103)+PEEK(104)*256-1),0"
  15. 80  PRINT "RUN LFDR"
  16. 90  PRINT D$"CLOSE"